Imports BusinessLogic
Imports BusinessEntity
Imports System.Data
Imports System
Imports Microsoft.VisualBasic
Imports System.Web.UI
Imports System.IO
Imports System.Drawing
Partial Class Pages_Controls_ctlfrmFichaLaboral
    Inherits System.Web.UI.UserControl
    Dim TitularID As Integer
    Dim PersonaEmpresaID As Integer

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Me.IsPostBack Then
            TitularID = DBUtilities.TitularID
            If Not IsNothing(Request.QueryString("KEY")) Then
                Dim variable As String = "" & Request.QueryString("KEY").ToString()

                'Session.Add("FichaIncripcionID", variable)

                If variable <> 0 Then
                    CargaDatosLaborales(TitularID, variable)
                Else

                    NuevoDatosLaborales()
                End If
            Else
                NuevoDatosLaborales()
            End If


        End If

    End Sub

    Private Sub CargaDatosLaborales(ByVal TitularID As Integer, ByVal PersonaEmpresaID As Integer)
        Dim objPersona As New BusinessLogic.crFichaLaboral
        Dim ds As BusinessEntity.CCLaborable
        ds = objPersona.GetDatosFichaLaboral(TitularID, PersonaEmpresaID)

        txtTitularID.Text = ds.TB_SOC_ESI_Titular_ID
        txtPersonaEmpresaID.Text = ds.TB_SOC_ESI_PersonaEmpresa_ID
        txtCargoPuestoID.Text = ds.TB_SOC_ESI_CargoPuesto_ID
        txtEmpresaID.Text = ds.TB_SOC_ESI_Empresa_ID
        txtPersonaID.Text = ds.TB_SOC_ESI_Persona_ID
        txtCodEmpresa.Text = ds.CodEmpresa
        If ds.AnioIngreso = "" Then
            cmbAnioIngreso.Value = 2010
        Else
            cmbAnioIngreso.Value = Convert.ToInt32(Year(ds.AnioIngreso))
        End If
        cmbRazonSocial.Value = ds.TB_SOC_ESI_Empresa_ID
        txtArea.Text = ds.Area
        txtDireccion.Text = ds.Direccion
        txtTelefono.Text = ds.Telefono
        cmbUbigeo.Value = ds.TB_SOC_ESI_Ubigeo_ID
        cmbCargoPuesto.Value = ds.TB_SOC_ESI_CargoPuesto_ID
        txtCodUbigeo.Text = ds.CodUbigeo


    End Sub

    Protected Sub imgNuevo_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs)
        CargaDatosLaborales(TitularID, PersonaEmpresaID)
    End Sub

    Protected Sub btnGrabar_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        GrabaFichaLaboral()
    End Sub

    Sub NuevoDatosLaborales()
        txtTitularID.Text = 0
        txtPersonaEmpresaID.Text = 0
        txtCargoPuestoID.Text = 0
        txtEmpresaID.Text = 0
        txtPersonaID.Text = 0
        txtCodEmpresa.Text = 0
        cmbAnioIngreso.Value = Convert.ToInt32(Year(Now()))
        cmbRazonSocial.Value = 1
        txtArea.Text = ""
        txtDireccion.Text = ""
        txtTelefono.Text = ""
        cmbUbigeo.Value = 1
        cmbCargoPuesto.Value = 1
        txtCodUbigeo.Text = 0
    End Sub

    Private Sub GrabaFichaLaboral()
        Dim objFichaLaboral As New BusinessLogic.crFichaLaboral
        Dim ds As New BusinessEntity.CCLaborable
        Dim objBase As New BusinessLogic.crConsulta

        Try
            ds.TB_SOC_ESI_Titular_ID = DBUtilities.TitularID 'iif(val(txtTitularID.Text)= 0,,=
            ds.TB_SOC_ESI_PersonaEmpresa_ID = txtPersonaEmpresaID.Text
            'ds.TB_SOC_ESI_CargoPuesto_ID = txtCargoPuestoID.Text
            ds.TB_SOC_ESI_Empresa_ID = txtEmpresaID.Text
            'ds.TB_SOC_ESI_Persona_ID = Convert.ToInt32(objBase.Buscar_Campo(ds.TB_SOC_ESI_Titular_ID, "TB_SOC_ESI_Titular_ID", "TB_SOC_ESI_Persona_ID", "TB_SOC_ESI_Titular", "", "", ""))
            ds.CodEmpresa = txtCodEmpresa.Text
            ds.AnioIngreso = "01/01/" + Convert.ToString(cmbAnioIngreso.Value)
            ds.TB_SOC_ESI_Empresa_ID = cmbRazonSocial.Value
            ds.Area = txtArea.Text
            ds.Direccion = txtDireccion.Text
            ds.Telefono = txtTelefono.Text
            ds.TB_SOC_ESI_Ubigeo_ID = cmbUbigeo.Value
            ds.TB_SOC_ESI_CargoPuesto_ID = cmbCargoPuesto.Value
            ds.RazonSocial = cmbRazonSocial.Text
            'ds.CodUbigeo = txtCodUbigeo.Text




            If objFichaLaboral.GrabarFichaLaboral(ds) Then

                lblMensaje.Visible = True
                lblMensaje.Text = "Grabo..."
                ' ''If ds.TB_SOC_ESI_PersonaEmpresa_ID = 0 Then

                ' ''    'Response.Close()
                ' ''    'Response.Redirect("~/Pages/frmDetalleFicha.aspx?KEY=" + )
                ' ''    CerrarPantalla()
                ' ''    ' Response.Redirect("~/Pages/frmDetalleFicha.aspx?KEY=" + DBUtilities.FichaIncripcionID)
                ' ''Else
                Response.Redirect("~/Pages/frmDetalleFicha.aspx?KEY=" + Convert.ToString(DBUtilities.FichaIncripcionID))
                '' ''End If


            Else

                lblMensaje.Visible = True
                lblMensaje.Text = "No Grabo"
            End If


        Catch ex As System.IO.FileNotFoundException
            lblMensaje.Visible = True
            lblMensaje.Text = "No Grabo" ' ex.Message


        Catch ex As Exception

            lblMensaje.Visible = True
            lblMensaje.Text = "No Grabo" ' ex.Message

        End Try
    End Sub

    Public Sub SetPermissionForEdit(ByVal objRow As GridViewRow)
        CType(Me.FindControl("btnGrabar"), Button).Enabled = False

    End Sub

    Public Sub CerrarPantalla()
        Response.Write("<script language='javascript'> { window.close();}</script>")
        Me.Dispose()
    End Sub

End Class
